home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 28
/
Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
>> ende << - 018
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
43 lines
10 poke53280,.:poke53281,.:print"[147]";
15 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,33:pokes+4,65
16 data0,26,8,205,0,202,34
30 t$="[147]wir sind nun [158] unten angekommen!"
40 fori=1tolen(t$):print"[145]"chr$(20)tab(17)mid$(t$,i,1)
70 forp=0to100:nextp:nexti:
90 t$="wer will, [145]kann oben [145][129]wieder [145][150]anfangen..[145] "
110 fori=1tolen(t$):print" "chr$(20)tab(19)mid$(t$,i,11)
120 forp=0to100:nextp:nexti:
125 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,17:pokes+4,65
126 data0,44,6,102,0,202,42
140 print"... hier ist naemlich ... ";:ti$="000002":wait161,1:goto145
145 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,129:pokes+4,65
146 data0,14,4,202,0,239,45
148 poke56325,2
150 forx=.to15:print"[157][157][157][157][157][157]";:next
190 forx=.to400:next:print" e[159] ";
210 forx=.to410:next:print" n[156] ";
230 forx=.to420:next:print" d ";
250 forx=.to430:next:print" e ";
270 forx=.to440:next:print" [154]! "; :
310 print"":poke56325,58
370 ti$="000003":wait161,1:
372 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,129:pokes+4,128
373 data0,14,4,202,0,239,45
390 poke53280,.:poke53281,.:poke646,12
410 t$="[147]******************** [158]ciao!"
420 t$=t$+" [151]lukian "
430 fori=1tolen(t$):print"[145]"chr$(20)tab(19)mid$(t$,i,1)
450 forp=0to100:nextp:nexti
470 s=54272:fort=0to6:reada:pokes+t,a:next:pokes+24,15:pokes+4,65 :pokes+4,64
490 data4,10,8,2,4,10,45:goto500
500 print"abschied oder directory? <a/d>"
501 poke198,0:wait198,1:geta$
502 ifa$=chr$(65)then 600
503 ifa$=chr$(68)then 700
550 goto501
600 poke53280,6:poke53281,6:poke646,14:sys58253
700 print"[147][144]load"chr$(34)"$";
701 printchr$(34)",8":print:print
702 print:print:print"list"
703 poke198,3:poke631,19:poke632,13:poke633,13:poke646,14:end